BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/E/Exegesis Tools.cpt/Exegesis Tools/background_5419.txt

Text File | 1990-12-13 | 5KB | 248 lines

-- background: 5419 from stack: in
-- bmap block id: 12308
-- flags: 4000
-- background id: 0
-- name: Imp Back
----- HyperTalk script -----
on opencard
  --this comes from Stack Developer by Steve Drazga
  put (the number of this card - the number of first card of this background+1) into field "Page Num"
end opencard


-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=38 top=44 right=59 bottom=138
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scripture


-- part 2 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=38 top=63 right=308 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 1st Impress


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=24 top=316 right=341 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 12042 / 12042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=448 top=314 right=342 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  go to card ID 2974
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=445 top=39 right=64 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=23 right=53 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=57 top=316 right=342 bottom=84
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: How to…
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 8834
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=296 top=317 right=342 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of this bkgnd
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=188 top=317 right=342 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to prev card of this bkgnd
end mouseUp



-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=225 top=321 right=339 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: page num


-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=368 top=308 right=342 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 22076 / 22076
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Delete this card?" with "Cancel" or "Yes"
  if it is "cancel" then exit mouseUp
  set the cursor to 4
  set lockscreen to true
  domenu "delete Card"
  go prev
  set lockScreen to false
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=409 top=310 right=342 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print “Impressions” Report or Card?" with "Cancel" or "Report" or "Card"
  if it is "Cancel" then
    exit mouseUp
  end if
  if it is "Report" then
    domenu "Print Report..."
    exit mouseUp
  end if
  if it is "Card" then
    open printing with dialog
    if it is empty then
      exit mouseUp
    else
      print this card
      close printing
    end if
  end if
end mouseUp